home *** CD-ROM | disk | FTP | other *** search
/ Freelog 117 / FreelogNo117-OctobreNovembre2013.iso / Programmation / jedit / jedit5.1.0install.exe / {app} / macros / Emacs / Emacs_Set_Wrap.bsh < prev    next >
Text File  |  2013-07-28  |  1KB  |  58 lines
  1. /**
  2.  * Emulates the Emacs "set-fill-column" command, except that it prompts
  3.  * for the new fill column instead of using an Emacs-style "prefix argument."
  4.  */
  5.  
  6. source (MiscUtilities.constructPath(dirname(scriptPath), "EmacsUtil.bsh"));
  7.  
  8. void emacsSetWrap()
  9. {
  10.     // Convert the buffer name into a property name.
  11.  
  12.     propName = makeBufferPropertyName ("emacs.fillColumn.");
  13.     
  14.     // Get a value from the user.
  15.     
  16.     String err = "";
  17.     int defaultWrap = getCardinalProperty (propName, getDefaultWrap());
  18.     for (;;)
  19.     {
  20.         String s = Macros.input (editPane,
  21.                                  err +
  22.                                  "Enter new fill column or 0 to " +
  23.                                  "reset to default",
  24.                                  String.valueOf (defaultWrap));
  25.         if (s == null)
  26.             break;
  27.  
  28.         // Try to parse it.
  29.  
  30.         try
  31.         {
  32.             int i = Integer.parseInt (s);
  33.  
  34.             if ((i == 0) || (i == defaultWrap))
  35.             {
  36.                 jEdit.unsetProperty (propName);
  37.                 break;
  38.             }
  39.  
  40.             if (i > 0)
  41.             {
  42.                 jEdit.setIntegerProperty (propName, i);
  43.                 break;
  44.             }
  45.  
  46.             err = "Bad fill column value. ";
  47.        }
  48.  
  49.        catch (NumberFormatException ex)
  50.        {
  51.            err = "Bad fill column value. ";
  52.        }
  53.     }
  54. }
  55.  
  56. emacsSetWrap();
  57.  
  58.